home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / Pearls / disk / scsi / HDSleep / Source / mystdio.a < prev    next >
Text File  |  1996-05-21  |  544b  |  25 lines
  1.     XDEF _sprintf
  2.     XREF _AbsExecBase
  3.     XREF _LVORawDoFmt
  4.  
  5.     SECTION __merged,code
  6.  
  7. _sprintf:    ; ( ostring, format, {values} )
  8.     movem.l a2/a3/a6,-(sp)
  9.  
  10.     move.l    4*4(sp),a3       ;Get the output string pointer
  11.     move.l    5*4(sp),a0       ;Get the FormatString pointer
  12.     lea.l    6*4(sp),a1       ;Get the pointer to the DataStream
  13.     lea.l    stuffChar(pc),a2
  14.     move.l    _AbsExecBase,a6
  15.     jsr    _LVORawDoFmt(a6)
  16.  
  17.     movem.l (sp)+,a2/a3/a6
  18.     rts
  19.  
  20. ;------ PutChProc function used by RawDoFmt -----------
  21. stuffChar:
  22.     move.b    d0,(a3)+        ;Put data to output string
  23.     rts
  24.     END
  25.